home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / gfx / edit / PfPaint_V2.lha / PerfectPaint / rexx / text / Relief2.rx < prev    next >
Encoding:
Text File  |  1999-08-16  |  439 b   |  45 lines
  1. /*
  2.     Arexx Text Script
  3. */
  4.  
  5.     options results
  6.   parse ARG Port x y b
  7.     ADDRESS value Port
  8.  
  9.     pp_AvoidRefresh
  10.  
  11.     pp_UpdateUndo
  12.  
  13.     pp_GetApen
  14.     clr=result
  15.  
  16.     texte=""
  17.  
  18.     pp_ClosestColor 0 0 0
  19.     black=result
  20.  
  21.     pp_TextEffect 0 1
  22.     pp_TextMake texte
  23.     pp_TextDraw x y    
  24.     
  25.     pp_SetApen black
  26.     pp_TextEffect 2 1
  27.     pp_TextMake texte
  28.  
  29.     pp_EffectOn
  30.     pp_Airbrush 90 5
  31.     pp_TextDraw x-2 y-2
  32.     pp_EffectOff
  33.  
  34.     pp_SetApen clr
  35.  
  36.     pp_TextDraw x y
  37.  
  38.  
  39.  
  40.     pp_PermitRefresh
  41.     
  42.     
  43.  
  44.     
  45.